perm filename FREAD.IL[TIM,LSP] blob sn#722270 filedate 1983-07-28 generic text, type T, neo UTF8
(FILECREATED " 5-JUL-83 14:36:33" {PHYLUM}<GABRIEL>FREAD.;1 672    

      changes to:  (VARS FREADCOMS)
		   (FNS FREAD))


(PRETTYCOMPRINT FREADCOMS)

(RPAQQ FREADCOMS ((FNS FREAD)
		  (P (COND ((NOT (INFILEP (QUOTE FPRINT.TST)))
			    (PRIN1 "Make FPRINT.TST")
			    (TERPRI))))))
(DEFINEQ

(FREAD
  (LAMBDA NIL                                                (* JonL " 5-JUL-83 14:32")
    (PROG ((F (OPENFILE (QUOTE FPRINT.TST)
			(QUOTE INPUT))))
          (READ F)
          (RETURN (CLOSEF F)))))
)
(COND ((NOT (INFILEP (QUOTE FPRINT.TST)))
       (PRIN1 "Make FPRINT.TST")
       (TERPRI)))
(PUTPROPS FREAD COPYRIGHT (NONE))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (294 523 (FREAD 304 . 521)))))
STOP